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RARER AATAAAAAATAEARAAALAAAAAAAAAAARARAARAAAARAAAARAAAARAARARAARARAARARAAAEAAAAEERAEAAEEEE 
® 
COPYRIGHT ( ) 1978, 1980, 1982, 1984 B * 
DIGITAL PMENT CORPORATION, MAYNARD. MASSACHUSETTS. - 
RIGH $ URESERVEDS ‘ 

® 

S SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

Y IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
LUSION OF THE ABOVE COPYRIGHT N OTICE, THIS SOFTWARE OR ANY OTHER * 

ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED * 
a 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC E * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ‘ 
sd 

® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; ¢ FACILITY: System Library 
; ; ABSTRACT: 


This us tt ity routine sends one or more messages to SYSSERROR and 
SYSSOUTPUT. 


; ; ENVIRONMENT: 
; ; AUTHOR: Ward Clark, CREATION DATE: 5 December 1977 
; REVISION HISTORY: 


; vO3-002 JWT0135 07-Sep-1983 
: ALWAYS call FAO = -- "gon gees it if FAO argument 
3 count is less than cart? age control does not 

3 show up in the FAO argument count and is ease: 


v03-001 PCG0001 Peter George Rey 9 
Add processing for ‘‘combine’’ message mh ig This e directs 
that the message flag s pees? ties in the system service call 
be reduced by the default process flags. 


v02-014 MLJ0064 Martin L. Jack 13-Dec-1981 
Add ACTPRM parameter. 


v02-013 K1A00ze Kerbey T. Altmann 10-Jun-1981 
Add two new messges to the execption List. ine modify 
the List so that PROCSTRT can use it. 
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ST hel 


vO2-012 TMHOO12 Tim Wel vorgen 24-Feb-1981 
Close SYSSOUTPUT and SYSSERROR files after use. 
If error detected in $FAO, output message w/o FAO. 


v02-011 KTA0009 Kerbey T. Altmann 10-Feb-1981 
Check Length of argqunent list before accessing an 
argument to protect against picking up Junk. 


010 TMHOOOS Tim Welvergen 31-Jan-1980 
sncreees bul fer size to 255 bytes since the supervisor 
syeck ze increased gnough to handle the space. 

If inhib_msg bit set in status code, completely ignore 
message and its ar pent, 

Allow FAO call with leq 2 arguments for system or rms 

messages since they do not have an FAO count longword. 


009 TMHO007 Tim Halvorsen 26-Jan-1980 
Fix so that FAO is called only if more than 2 arguments 
specified, not one (since all msg sets with an FAO count 
have at least 2 arguments). Remove bypass of status= 
messages if the message is the primary message. 


008 TMHOO06 Tim Halvorsen 17-Jan-1980 
Upcase the first character of the message if text only 
and suppress null Lines. 


007 TMHOOOS Tim Halvorsen 14-Jan-1980 
Save registers r8,r9 over EXESOPEN_MSG. Also, always 
clear r6é (facnam not inserted) on exit paths from facnam 
processing code. 


TMHOO04 Tim Halvorsen 10-Jan-1980 
Call EXESOPEN_MSG only if message needs to be output 

in order to reduce the total stack space required for 
this routine by caller's not needing output (i.e. DCL). 
Rewrite oe of the GET_MODEL_MSG so that process msg 
flags override if the facil ty name is given. Also, 
reduce the buffer size to 127. 


005 TMHOO0S Tim Halvorsen 02-Jan-1980 
Ignore facility name if the facility bit is off in the 
message flags argument. 


004 TMHOO002 Tim Halvorsen 29-Dec-1979 
Fix increment delimiter insertion when facility name 
supplied by caller and text only returned by GETMSG. 


003 TMHOO001 Tim Halvorsen 19-Dec-1979 
Use default message flags from the control region (set 
using the SET ms? AGE command). fix % handling when 
pret xing a facility name so that the % returned from 

ETMSG is overwritten with a dash (-). 


RIHOO38 Richard I. Hustvedt 07-Nov-1979 
nee stots codes for floating faults to list of exception 
codes. 
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«MACRO SEXC_CODE CODE,ARGS 
BYTE ARGS 


ODE/8 
- ENDM EXC _CODE 


RACRO SFORMAL ARGUMENT_LIST 
SSFORMAL = 
, ARGUMENT , <ARGUMENT_LIST> 
SSFORMAL = SSFORMAL+4 
ARGUMENT = SSFORMAL 
-ENDR 
-ENDM S$FORMAL 
-MACRO $LOCAL ARGUMENT LIST 
.IRP ARGUMENT ,<ARGUMENT_LIST> 
$ LOCAL _ARG ARGUMENT 
-ENDM S$LOCAL 
«MACRO SSLOCAL_ARG NAME,SIZE=4 
IF NDF ,S$SLOCAL_SIZE 
SSLOCAL_SIZE = 0 


-ENDC 
SSLOCAL_ te = S$LOCAL_SIZE+SIZE 


NAME WN SO OD NAUE WO ODNAUE MIO ONO 


PUPS ES BS BS BS BS BS BS BS IIIA I I IO OPORONOTonon— 
se 


NAME = =$$ OCAL 3176 
ENDM LOCAL_ARG 
3; EQUATED SYMBOLS: 
SS_ID = 0 3: VAX/VMS subsystem number 
RMS_ID = 1 ; RMS subsystem number 
MODEL BUFF _SIZE = g55 : Size of model message buffer 
MSG_BOFF_SIZE = 25 ; Size of actual message buffer 
peer ie) = *a/%/ : Prefix on ist message 
PREFIX2 = *A/=-/ ; Prefix on subsequent messages 
3; Define VAX/VMS symbols: 
SSSDEF s Define system stetus values 
SSTSDEF 3 message code definitions 
5 SRASDEF : RMS message codes 
$F ABDEF 3 RMS FAB fields, masks and values 
SRABDEF 3 RMS RAB fields, masks and values 


> OWN STORAGE: 


-PSECT YEXEPAGED 
EXESEXCEPTABLE:: ; Define and initialize exception codes tabl 
-BYT EXCEPTION_COUNT ; Number of entries 


ce ce ce ec a a em me mr ee me ee ee ee ee ee ee ee ed ed ed ed ed od ed 


~SNs 


H 8 
sry SETEPERERLSVSOVTPT Lied tons Wo TEESE SEES NCL ERR 


1 176 108: SEXC_CODE ACCVIO,4 ; Access violation - 4 arguments 
00000003 4 177 EXCEPTION fre = 33 > 3 Length of a single table entry 
‘ 1 SEXC_COD S$ -ACHECK »8 3 Mac ne check = 2 arguments 
1 EXC_CODE SSS_ASTFLT 3 AST de {very stack Joust - 6 arguments 
A 1 SEXC-CODE $8 “BREAK : Breakpoint ault = 2 argunents 
1 xC_COD 33 _CMODSUPR, 3 hange mode to supervisor trap - 3 args 
1 SEXC_COD $ ofMODUSE ° H Change node to user trap - 3 arguments 
1 1 SEXC_CODE SS$_COMPAT, 5 Compatibility mode fault - 3 ar nts 
1 1 2 SEXC_CODE SS = peccus 3 Opcode reserved to user fault - 2 args 
1 1 SEXC_CODE SS$_OPCDEC 3 Opcode reserved to DEC fault - 2 args 
1C 186 SEXC-CODE SSS-PAGRDERR,4 ; Page read error = 4 arguments 
F 4 SEXC=COD SS =RADRMOD .g ; Reserved addressing fault - 2 arguments 
1 8 : XC_CODE SS$_ROPRAND 3 Reserved operand jpuit - 2 arguments 
1 EXC-CODE SSS$"SSFAIL.5 i System service failure = 3 argunents 
190 Sexe A EODE SS$_TBIT : TBIT pending trap - 2 arguments 
B 191 EXC_CODE SS “DEBUG 2 3 Debus trap - 2 arguments 
: 136 SEXC_CODE SSS-ARTRES, 3 Arithmetic trap, reserved trap 
19 SEXC_CODE SSS_INTOVF, 3 Arithmetic trap, integer gyer tlow 
4 194 SEXC_CODE SSS$_INTDIV, : Arithmetic trap, integer divide by zero 
7 195 SEXC_CODE He 3 Arithmetic trap, floating overflow 
A 136 SEXC_CODE SSS$_FLTDIV, 3 Arithmetic trap, floating/decimal divid 
; 19 SEXC_CODE SSS$_FLTUND, 3 Arithmetic trap, floating underflow 
4 138 SEXC_CODE SS$_DECOVF, 3 Arithmetic trap, decimal overflow 
Se 19 SEXC_CODE SS$_SUBRNG, 3 Arithmetic brap. subscript out of range 
rt 89 SEXC_CODE SSS_FLTOVF_F, 3 Arithmetic fault, floating overflow 
Be 1 SEXC_CODE SSS_FLTDIV_F, 3 Arithmetic fault, floating/decimal divi 
4C §¢ SEXC_CODE SSS_FLTUND F 3 Arithmetic fault, floating er flow 
O4F 20 SEXC~CODE SSS_INHCHAR. $ : Inhibited CHMKernel trap - 3 arguments 
O38 be SEXC CODE SS$_INHCHME 3 Inhibited CHMExecutive trap - 3 argumen 
0000001¢ 005 5 EXCEPTION_COONT = <.-10$>/EXCEPTION_SIZE 
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3 
| 
§ 
3 
; 
: 
: 
it 
5 
; 
9 
0 
5 
; 
5 
0 
5 
5 
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3+ 

; FUNCTIONAL DESCRIPTION: 

; a) total number of arguments (b = e) 
; fier 


This routine is a generalized VAX/VMS message output routine. Messages 
(which the caller references by messes id) are sent to the SYSSOUTPUT 
device. Resseges which have a severity different from 1 (normal) are also 
sent to the SYSSERROR device. 


Since all user and pert ity routines are encouraged to tienet error 
conditions rather than writing error messages, this routine is 

ayructures to be called from a signal handler. It can, however, be 
Piceesty called by any routine which can construct a proper argument 


The primary (required) ognen to this routine is the address of a 
message argument vector (described below). The gecene (optional) 
argument is the egeress of a message action routine provided 

by the caller. This routine, if present, is called after the 

standard processing for each message has been performed, but 

before the message is ac vai ly written to the user. The completion code 
from the action routine ind gages whether or not the message should 

rd (optional) argument is the address 

of a string descriptor which defines a facility name to be used in 

the first message of a sequence. 


be sent to the user. The th 


The message argument vector has the following format: 


b) message ident 

c) number of FAO arguments for the message 

d) FAO argument(s) 

e) repeat items b thru d as many times as necessary 


This routine will process each Rs bag set’’ (items b thru d) by calling 

SGETMSG and SFAO and then outputting the completed message. simple 

pesgage {1.0 no FAO arguments and no Linked message) would be items a, 
» f and g. 


There are two special cases involving the message argument structure: 


* an RAS message (STS value) is always lanedisyely 
followed by the corresponding STV value. This STV 
value w ' be used as an FAO argument or another 
message id, based on the RMS message number. 

* ? system exception message number (e.g., SS$_ARITH) 

5 always lamedtoyely 8 sever by associated 

exception values (from 2 to 6) which are treated as 

AO arguments. The number of arguments is 

determined from the message number. 


CALLING SEQUENCE: 


CALL SYSSPUTMSG( MSG_ARGS_ADDR.rlu.ra 
-ACTION_ADDR.ra.v 


J 8 
TPUT Li -SEP- 226: - 
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»FAC_NAME_ADDR.rt.ds 
*ACTION_PARAM.rlu.v ) 


Note that this routine is actually invoked indirectly thru 
use of the system vector. 


IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 
COMPLETION CODES: 
SS$_NORMAL = Successful completion 
SIDE EFFECTS: 
None 


seus sustiae’s 


w~< 


SFORMAL < - 
MSG_ARGS_ADDR, - 
ACTION_ADOR, = 
FAC_NARE_ADOR, - 
ACTION_PARAM > 


Define formal routine arguments: 
address of caller's message vector 
address of caller's action routine 
address of facility name descriptor 
parameter to caller's action routine 


Define local (stack) variables 


SLOCAL <- 
<GETMSG_VALUE>, - 3; Message values returned by SGETMSG 
<MSG_FLAGS,2>, = : Message flags currently selected 
<ARGUNT_LEFT,2>, ; Total argument fours left to process 
<FAO_CTE DESC. 89, 3; FAO control string descriptor 
<FAO_OUT_DESC,8>, =- 3; FAO output buffer descriptor 
<SUB“MESSAGE,1>, = 3 RMS sub-message indicator 
<SECONDARY_MSG,1>, ° ; True if secondary error possege 
<SAVE_REGS,8>, = 3; Used to save r8,r9 over EXESOPEN MSG 
<MODEC_ BUFFER; MODEL_BUFF_SIZE>, - : Model message buffer for SYSSGETASG 
<MESSAGE_BUFFER,MSG_BUFF-SIZE> > ; Actual message buffer 
ENTRY EXESPUTMSG, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
SE FDEO ce HOVAB =$ LOCAL_Sfze(SPS,SP ° ;allocat space for local variables 
CLRL ; Mark FAB/R $ not yet set up 
59 04 AC MOVL MSG_ARGS_ADDR(AP) ,R9 3;.Get address of message argument List 
ASSUME it] FLAGS EQ ARGCNT_LEFT+2 
FB AD 89 MOVL (ROY+ ,ARGCNT_LEF T (FP 3 Save number of message vector arguments 
3; and set default nessage flags 
E6 AD CLRB SECONDARY _MSG(FP) 3; Clear secondary indicator 
E7 AD CLRB SUB_MESSAGE (FP) 3; Clear the sub-message indicator 
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Repeat the remainin 


/SYS 

- SY 

77 3; message set provided G the caller. 
§ TOP_OF LOOP: 
: 

i 

5 

; 

: 
40 
41 


MOVL @ 
MOVAB Att ger 


BBSC 
; Special system message setup. 


» ENABL 


ASSUME 
ASSUME 


CMPZV 


LSB 


RMS_ID EQ 1 
SS_TD EQ 0 


#STS$SV_FAC_NO, = 
gsTs$s. FAC-NO,(R9), 


3 Special RMS message setup. 


RMS_MESSAGE: 
BNEQ OTHER_MESSAGE 3 
BBC ti pe grverarys, - 3 
(RO) , 30 3 
INCB SUB_MESSAGE (FP) : 
BRB GET_MODEL_MSG HY 


: Standard (non-special) message setup. 


OTHER_MESSAGE: 
CMPW 
BEQL 
ADDW 


e) ¢"necet “ge 3 


RMS 

BGEQ § RMS_MESSAGE 

MOVAB carte PTABLE,R1 ; 

MOVZBL : Set loo 
10$:  MOVZBL (R1)+ : 

MOVZWL (RIJS OR ; 

CMPZV #STS$V_CODE.#STS$S_CODE,- ; 

(RO) ,R3 

BEQL 208 ; 

SOBGTR RO,10$ " 

BLBC SECONDARY. MSG(FP) ,GET node $6 

TSTL (RO) : NOLL 

BNEG GET MODEL MSG 

BRW END~OF _LOOP ; 

BRB GEf ME OEL _MSG ; 


GE ROD : : 


<= 


AX/VAS Mf 


Pa S 
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S$: 


cro V 
YSPUT 


ortion of sate routine for each 


; Assume a single message orgqunent. 
Point t to FAO argument coun 


#0, sub. RTESSAGE (FP), GET pas _MSG ; If set, sub-message 


Check the facility code portion 
of the current message code 

a an RMS id 

If geq not system id 


Point to the table of messages 

count 

Get number of arguments 

Get next hardware exception code 
Condition name match euseetien code? 


: jee - jump to special setup. 


more entries to examine? 
3; Skip zero bypass if 


rimar 
Status=0) 


message code? 
neq no 


: Ignore gocendery 0 status codes 


Calculate actual number of FAO arguments 


it hing not RMS id 
f the associated message 
3 ment is not another message code. 
Indicate sub-message 
Jump to continue normal processing. 


Any more arguments to process? 
eql no 
Calculate number of FAO arguments 


seu 


SvSSPUTMSG ~ SYSSERROR/ 


ae eh GEER 


§ 


L 
$SuTPU tage Ro "er SEE TSBs BSi8SiTs HNC MeS Hares ieee fae | PAM Cd, 


R7)+ : ae mpesoge flags specified? 


$ 
=3{R7) /ASG,FLAGS(FP) : 5 Seve’ Ky message flags 
R ; Augment number by one 


S< 
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: Call SGETMSG to retrieve the model message text which corresponds 
; to the current message number. 


GET_MODEL_MSG: 


3 If flags or pynent zero, then use process default flags. 
; If combine bit is set, then reduce the flags argument by the 
; default flags. 
55 FA AD 35 MOVZWL MSG_FLAGS(FP),R5 ; Get user flags 
09 1 BNEQ ; Branch if non-zero 
55 Q0000000'GF 9A MOVZBL G“CTLSGB_MSGMASK,R5 :; If zero, use qprecess flags 
11 BRB ; Done processt ng flags 
10 55 04 3 2s: BBC #4,R5,5$ : Branch if no combine bit 
50 00000000° of A MOVZBL G*CTLSGB_MSGMASK,RO + Complement default flags 
d2 MCOML RO,R 3 
50 CA ; Clear the specified flags 
55 12 c8 BISL #16,R5 3; Reset the combine bit for SGETMSG 
FA AD 5 B0 5$: MOVW RS ,MSG_FLAGS (FP) : Save final flags 
FO AD FF 8F QA MOVZBL ernee, BUFF _SIZE, ; ae she GETMSG buffer descriptor 
FAO_CTC_DESCT(FP) : with the model buffer size 
F4 AD FEDF CD 9E MOVAB MODEL_BOFFER(FP), - 3 x. Et address. 
FAO_CTL_DESC+4 (FP) : 


If Socks ‘ty message flag set and a roots tty name was specified, 
e u 


then put the facility name given into the buffer before calling GETMSG 


PERE PPLE REE EEE EEE PANNA AAA AMM 


tt I I 4 MQOCOKOCOOCOCOOOOOOOOOOOCCCCDCNCD w~< 


3 
$ 
5 
: 
} 
g 
g BICL  RO,R 
; 
: 
; 
: 
5 
° 
: 
: 
5 
$ 


49_E6 AD 3 BLBS FECONDARY MSG(FP),15$ ; Branch if not first message 
03 6c (91 CMPB (AP), #FAC_NAME_ADDR/4 ; Enough arguments? 
1F BLSSU 15$ 3 No, don't try to access 
6 Cac OD “ OVL FAC_NAME_ADDR(AP) ,R 3 any acility name descriptor? 
5 0 e ? eovt FAC. ( 6 : Ls). "he i 
39 FA AD 3 E1 & BBC in MSG_FLAGS(FP) ,15$ : If fect ity bit off. ignore name 
0 AD 66 25 4 SUBW (RO) , FAO crt Pest (FP) ; Put the remaining buffer Length 
FO AD 8B 4 DECW PAOLCT ett OBES 3 into the | acdel buffer descriptor 
30 «15 Ss BLEQ 15 ; If leq fer not & hare enough 
53 F4 ap 4 MOVL FAO_CTL roast , i haeress vet GETASG 
83 4 MOVB oper ix xT : Insert lead +i “pn E 
3 04 B6 4 MOVC  (R6),@4(R6) : Move the te"the butter 
FA AD & BICB #°x8 MSG _F 0) c8aep) as 3 Sn per facit t aane from a dotoyit flags 
56 66 1 =A 4 ADDWS = #1, (RO) ; cal culate rea Length of pre 
4 2D 00 4 MOVL aAt=" RG : Set deti m to stick over G THSG result 
01 55 04 60 ‘ 4 ‘ CHP ZV #84 #4,R5,01 : Request ing on only text from GETMSG? 
: Branc 
3 434 MOVB } ae 3; If so, ened tacitity/text delimiter 
4 435 MOVB #*a' : ine set space as fet alter afterwards 
6 OD 4 § INCL 6 ; nerenent prefix leng 
FO 4g 1) & DECL fe AO_CTL_DESC(FP) 3 decrement cuetee™ Att left 
F4 AD ; 0 438 10$ MOVL FAO_ aii ESC+4(FP) =; Po nt to next available space 1. buffer 
2 é BRB BO 
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WOn- 000 SYSSPUTMSG = SYSSERROR/SYSSOUTPUT messeg §-§ sets 7 9g: 88:93 SYS.SRCISYSPUTMSG.MAR; 1 . (4) 
56 D4 143 see 15$: CLRL R6 3; Mark no facility name inserted 
14 445 208: SGETMSG_S - ; Call SGETMSG with the following arguments: 
130 444 (R9), = 3 message number 
14 445 FAO_CTL_DESC(FP), os : address of text length deposit area 
147 rt FAO_CTL_DESC(FP), = ; address of model text buffer descriptor 
147 44 R5, = 5 option bits (see above) 
13 rr GE fMSG_VALUE (FP) ; address of message value deposit area 
56 «(=D 158 450 TSTL ; Was prefix supplied by caller? 
5 93 Biap be Beat es S branch if not 
01 5 o 15F t2 CMPL R #1 3; Did we ask only for tqxt? 
4 | 162 4 BEQL § : If so, there is no % in string 
F4 BD 4 } 16 454 MOVB R4,@FAO_CTL_DESC+4(FP) ; Overwrite GETMSG % with delimiter 
FO AD 6 A 168 455 35$: ADDW R6,FAO CTL _BESC(FP) z_Add in Length of prefix 
F4 AD FEDF CD 4 1 4 § MOVAB MODEL BUFFER(FP) ,FAO_CTL_DESC+4(FP) ; Reset to begining of buffer 
FO Ae B 1 4 TSTW FAO_CTL_DESC(FP) 3; Null string? 
0 i¢ 17 4 8 BNEQ 40$ 3: If not, continue 
OOCF 3 44 rte BRW END_OF _LOOP ; If null string, skip to next message 
fA red 3 Upcase the first character if text only message 
01 FA AD O04 O00 ED OQOI7A 188 dos: CMPZV #0,44,MSG_FLAGS(FP),#1 ; Text onty message? 
1 i 1 8 464 BNEQ F INAL_MESSAGE 3; Branch if not 
50 F4& AD OD 1 465 MOVL FAO_CTL_DESC+4(FP),RO 3; Get address of first character 
61 8F 0 91 0186 £68 CMPB (ROY ,#*R'a' : Check lower bounds of lowercase range 
A 18A 46 BLSSU  FINAL_MESSAGE ; Branch if already upper case 
7A 8F 60 91 O18C 468 CMPB (RO) ,R*A'2' 3; Check upper bounds of lowercase range 
1A 0190 469 BGTRU FINAL_MESSAGE :; Branch if already upper case 
60 £0 8F 80 0192 470 DB #*A'AT=*A'a", (RO) ; Convert to upper case 


8 9 
SYSPUTMSG = SYSSERROR/SYSSOUTPUT Linked Message Ro 16-SEP-1984 02:26: AX/VMS Macro V04-00 Page 1 SYS 
yon-000 SYSSPUTMSG - SYSSERROR/ YSSOUTPUT nessag ~$Fb = 38 §¢:86:9% SYS. SRCISYSPUYMSG MAR: 1 . 8) vO4 
19648 
1 aoe ; Create the final cutout message by calling $FAOL to fillin the variable 
1 475 ; portions of the model message returned by SGETMSG, or simply move the 
} £28 ; model message to the output buffer. 
1 478 ° 
1 138 £ [NAL MESSAGE : 
—E8 AD FF 8F QA 0196 4 ? 5$: MOVZBL #MSG_BUFF SIZE,FAO_OUT_DESC(FP) ; Set length of message buffer 
EC AD FOEO CD 9E 198 4 MOVAB  MESSAGE_BOFFER(FP).FAO-OUT DESC+4(FP) ; Set address of buffer 
1A1— 4 ¢ SFAOL_S - ; Call SFAOL with the following arguments: 
1A1 4 FAO_CTL_DESC(FP), = 3 addr of control msg string desc 
1A1 484 FAO_OUT_DESC(FP), = 3 addr of msg size deposit area 
1A1 485 rie OUT_DESC(FP), = $ addr of msg buffer descriptor 
1A} 4 § (R7) 3 addr of the FAO argument list, if any 
05 50 €8 O16 4 BLBS RO,208 3 ve to add the message prefix. 
186 488 ; If FAO failed, use original string 
EB AD FO AD 7D 0186 489 10$ MCVQ  FAO_CTL_DESC(FP), - : Copy control buffer descriptor 
1BB 490 FAO_OUT DESC (FP) H 
08 E6 AD 69 E 168 491 208 BBCS #0 SECORDARY MSG(FP),CALL_ACTION ; If clr, output first message 
0455 0 4 1C $36 BBC #3,R5,CALL_ACTION : clr, suppress insertion on minus sign 
V of, OUT. + ; Insert leading minus sign 
EC BD 2D 104 «49 MOVB #*A/=7 af AO_OUT_DESC+4 (FP) I di i i 
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02 AB 02 AA Q CMPY =—-RABSW_ISI(R10) ,RABSW_ISI(R11) ; SYSSERROR and SYSSOUTPUT same? 
1C BEQL END_OF_L If gal ye 
32 AA EB AD 8B 10$:  MOovW FAO “OUT_DESC(FP) ,RABSW Rez(Rt ) Set size of output message 
AA EC AD D MOVL AO 0-0Ur gpesceacFPD, RABSL_RBF(R10S ; Set address of output message 


" oie for’ any outstandin 
$PUT RAB=(R10) 3; Send the message to SYS itPUT. 


: ; Setup te process the next message, if an 
R8 = Number of longwords gobbled tor this message 


END_OF __LOOP: 
SUBW RB, ARGCNT_LEFT(FP) ; Calculate remaining arguments 


SYSPUTMSG = SYSSERROR/SYSSOUTPUT Linke 4 AX/VMS Macro V04-00 Pa 1 
v04- SYSSPUTMSG - SYSSERROR/ EY SSCUTPUT messag met 88: g8: % Heys. eRcTe SPUTMSG. MAR; 1 ” 13) 
1b i 
\t ne Call the caller's action routine if one was provided. 
1¢8 499 ° 
7D 69 1¢ 0 if ? eieaehl | #STS$V_INHIB_MSG CNY. END OF _LOOP i if inhibited 
nore message n te 
2 6C 51 1¢€¢ : CMPB_ ss (AP), BACTION_ADDR/ 77End nough srounen ts? ° 
1A sf 1CF BLSSU PUT_SYSSERROR™ : No, don ye access it 
08 a Be 101 4 TSTL ACTION_ADDR(AP) 3 if ortien rout ne address is zero, 
1 1 104 5 BEQL yt SYSSERROR ; bypass call an action routine. 
ys pp 106 § PUSHL # 3; Push zero act - parameter 
04 C 1 Q1D CMPB (AP), MACTION_PARAM/4 ; pnoues arguments 
04 1F 0Q1DB 3 BLSSU 25% ; No, don't try to eccons it 
6—E 10 AC 0 10D MOVL ACTION_PARAM(AP), (SP) ; Copy user's parameter 
E8 AD F O1E1 10 258: PUSHAB rao ouT_D : Push the address of message descriptor 
08 BC 9¢ Fe 1E4 11 CALLS »SACTION_ADDR(AP) ; and call the caller's action routine. 
SE E ie \§ BLBC END _OF Coop : If lbe skip further output of message 
1€B 14 : 
+4 1g 3; Send error messages to the SYSSERROR device if this is not a success sequence 
168 «(517° 
OIE 18 PUT_SYSSERROR: 
5B oS O1EB TSTL R11 3; Have FAB/RAB's been set up y 
0B 12 OED 0 BNEQ 5$ : branch if all Me from last” Tavetten 
DE AD 58 7D OU1EF 2 1 MOVva R8,SAVE_REGS(FP) 3; Save register 
FEOA’ 30 1F3 ‘ BSBW sé i Allocate/init FAB and RAB's on stack 
58 DE AD D O1F6 mMOva SAVE_REGS(FP) ,R8 ; Restore registers 
50 $? be 1FA 4 5$: MCOML §(R9)> Get complement of severity field 
04 aB O01 #F SO F FD 5 INSV. RO #RABSY CCO,#1 RABSL _ ropeRity ; Cancel “0 if not success or info 
03 p ED $ CMPZV ast ssy SEVERITY ,ASTS$S_SEVERITY,- if seve erity field 
06 6 R FO CESTSSK_SUCCESSSESTSEM- SEVER ity is ‘'success'’ 
2313 8 Bea. ~=s«108 then don't write SYSSERROR 
22 AB £8 AD BO A 9 MOVW FAO_OUT_DESC(FP) ,RABSW réztrin) « Set size of output message 
28 AB EC AD DO F 0 OVL  FAO-OUT~DESC+4(FP) ,RABSL_R BF(RI1S : Set address of output message 
14 1 $SWAIT RAB=(R1T) r Gale for any outstanding | /0 
10 § $ RAB=(R11) Send the message to SYSSERROR. 
6 4 : 
6 : Send the completed message to the SYSSOUTPUT device if different from "SYSSERROR’ 
4 
4 
4 
4 
4 
4 
4 
4 
; 
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SYSPUTMSG = SYSSERROR/SYSSOUTPUT Linked Message Ro 16-SEP-1984 02:26: AX/VMS Macro V04-00 Pa 14 SY! 
vOL~000 SYSSPUTMSG - SYSSERROR/ YSSOUTPU aessag -§ oats 7 8¢:88:04 Heys SRCISYSEU MSG.MAR;1 - (8) vO: 
, 4D BLEQ RETURN : If leq no more to process 
59 6948 BF 5 MOVAL (R9)CR8I,R9 ; Get addr ss of next message code 
FE1 : BRW TOP_OF _LOOP ; Loop until all messages have been 
3; processed. 
; Close the message files 
RETURN: 
FDA7" 30 BSBW EXESCLOSE_MSG ; Close the message files 
Return to the caller. 
50 «(01 4 9 ¢ MOVL S“#SS$_NORMAL ,RO ; Return a normal completion code 
C 8 RET 3 to the caller. 
Dae 
D 0 END 
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Psect synopsis ! 


' 
jane cc a ee escaaad 


PSECT name Allocation PSECT No. Attributes 

Ags , 0 0 ( .)» 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NO 
$aBS 0 ( :) } .) NOPIC USR CON ABS LCL NOSHR 
YEXEPAGED D ¢ 605.) ( 2.) NOPIC USR CON REL LCL NOSHR 


ecnen asses ser eeseeenzreacaca $ 


Performance indicators H 


Initialization 23 :00: $ :00: 
:00: 0 
Assembler run totals 60 0:00:14 0 


of 
ommand processing 129 49 
Pass 1 4 -85 
Symbol table sort :00:01.24 
Pass 11 :00:02.21 
Symbol table output 1 :00:00.09 :00: 
Psect synopsis output :00:00. 3 :00: 
Cross-reference output " 33:8 : 

-09 0:00: 
Ibe yorking set Limit was 1500 pages. 
56719 bytes (111 pages) of virtual memory were used to buffer the intermediate seee. 
There were 50 pages of symbol table space allocated to hold 1002 non-local and 17 local symbols. 
source lines were read in Pass 1, producing 17 object records in Pass 2. 
4 pages of virtual memory were used to define 22 macros. 


Seneca room ee mem meme} 


Macro Library name Macros defined 
55$DUA28: CSYS.OBJJLIB.MLB; 1 

STittnrTs Mette TTC ES 5 

TOTALS (all Libraries) 1 


1120 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSPUTMSG/0BJ=0BJ$:SYSPUTMSG MSRC$:SYSPUTMSG/UPDATE=(ENHS: SYSPUTMSG) +EXECML$/LIB 
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